home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n12 / windoc.exe / SAVEMAC.SMM < prev   
Encoding:
INI File  |  1991-10-09  |  5.9 KB  |  431 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PCL / HP LaserJet
  13. [lang]
  14.     1
  15. [desc]
  16.     this is the document description
  17.     
  18.     
  19.     
  20.     
  21.     687028353
  22.     30
  23.     677818340
  24.     120
  25.     1
  26.     122
  27.     1110
  28.     5
  29.     5
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [tag]
  50.     Body Text
  51.     2
  52.     [fnt]
  53.         Tms Rmn
  54.         240
  55.         0
  56.         49152
  57.     [algn]
  58.         1
  59.         1
  60.         0
  61.         0
  62.         0
  63.     [spc]
  64.         17
  65.         0
  66.         1
  67.         0
  68.         0
  69.         1
  70.         100
  71.     [brk]
  72.         4
  73.     [line]
  74.         8
  75.         0
  76.         1
  77.         0
  78.         1
  79.         1
  80.         1
  81.         10
  82.         10
  83.         1
  84.     [spec]
  85.         0
  86.         0
  87.         
  88.         0
  89.         1
  90.         1
  91.         0
  92.         0
  93.         0
  94.         0
  95.     [nfmt]
  96.         280
  97.         1
  98.         2
  99.         .
  100.         ,
  101.         $
  102.     Body Text
  103.     0
  104.     0
  105. [lay]
  106.     Standard
  107.     513
  108.     [rght]
  109.         15840
  110.         12240
  111.         1
  112.         1440
  113.         1440
  114.         1
  115.         1440
  116.         1440
  117.         0
  118.         1
  119.         0
  120.         1
  121.         0
  122.         2
  123.         1
  124.         1440
  125.         10800
  126.         4
  127.         1
  128.         720
  129.         1
  130.         1440
  131.         1
  132.         2160
  133.         1
  134.         2880
  135.     [hrght]
  136.     [lyfrm]
  137.         1
  138.         11200
  139.         0
  140.         0
  141.         12240
  142.         1440
  143.         0
  144.         1
  145.         3
  146.         1 0 0 0 0 0 0
  147.         0
  148.         0
  149.         1
  150.     [frmlay]
  151.         1440
  152.         12240
  153.         1
  154.         1440
  155.         72
  156.         1
  157.         792
  158.         1440
  159.         0
  160.         1
  161.         0
  162.         1
  163.         1
  164.         0
  165.         1
  166.         1440
  167.         10800
  168.         0
  169.     [txt]
  170. >
  171.     [frght]
  172.     [lyfrm]
  173.         1
  174.         13248
  175.         0
  176.         14400
  177.         12240
  178.         15840
  179.         0
  180.         1
  181.         3
  182.         1 0 0 0 0 0 0
  183.         0
  184.         0
  185.         2
  186.     [frmlay]
  187.         15840
  188.         12240
  189.         1
  190.         1440
  191.         792
  192.         1
  193.         14472
  194.         1440
  195.         0
  196.         1
  197.         0
  198.         1
  199.         1
  200.         0
  201.         1
  202.         1440
  203.         10800
  204.         0
  205.     [txt]
  206. >
  207. [elay]
  208. [l1]
  209.     0
  210. [pg]
  211.     1
  212.     49 0 36 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  213. [edoc]
  214. <:#240,9360><:f,&Times New Roman,>fun<:f,&Times New Roman,>ction savemac()
  215.  
  216. <:#240,9360><:f,&Times New Roman,>
  217.  
  218. <:#288,9360><:f,&Times New Roman,>FName=GetDocInfo$(DDFilename)<:f>
  219.  
  220. <:#288,9360><:f,&Times New Roman,>IF mid$(FName,2,8) =<:f><:f,&Times New Roman,> "Untitled" THEN call SaveWithNewName()<:f>
  221.  
  222. <:#288,9360><:f,&Times New Roman,>Else SV=Save<:f>
  223.  
  224. <:#240,9360><:f,&Times New Roman,>endif
  225.  
  226. <:#288,9360><:f,&Times New Roman,>End function<:f>
  227.  
  228. <:#240,9360><:f,&Times New Roman,>
  229.  
  230. <:#240,9360><:f,&Times New Roman,>function SaveWithNewName()
  231.  
  232. <:#240,9360><:f,&Times New Roman,>Sv=SaveAs
  233.  
  234. <:#240,9360><:f,&Times New Roman,>IF SV<<1<:f><:f,&Times New Roman,> THEN EXIT FUNCTION
  235.  
  236. <:#288,9360><:f,&Times New Roman,>endif<:f>
  237.  
  238. <:#240,9360><:f,&Times New Roman,>path=GetDocInfo<:f><:f,&Times New Roman,>$(DDPath)
  239.  
  240. <:#240,9360><:f,&Times New Roman,>appname="amipro"
  241.  
  242. <:#288,9360><:f,&Times New Roman,>FName=GetDocInfo$(DDFilename)<:f>
  243.  
  244. <:#279,9360>FName=STRCAT$(Path, "\", FName)
  245.  
  246. <:#279,9360>FName=LCASE$(FName)
  247.  
  248. <:#240,9360><:f,&Times New Roman,>title=<:f><:f,&Times New Roman,>GetDocInfo<:f><:f,&Times New Roman,>$(DDDescription)
  249.  
  250. <:#288,9360><:f,&Times New Roman,>key1=<:f><:f,&Times New Roman,>GetDocInfo<:f><:f,&Times New Roman,>$(DDUser1)<:f>
  251.  
  252. <:#288,9360><:f,&Times New Roman,>key2=<:f><:f,&Times New Roman,>GetDocInfo<:f><:f,&Times New Roman,>$(DDUser2)<:f>
  253.  
  254. <:#288,9360><:f,&Times New Roman,>key3=<:f><:f,&Times New Roman,>GetDocInfo<:f><:f,&Times New Roman,>$(DDUser3)<:f>
  255.  
  256. <:#288,9360><:f,&Times New Roman,>key4=<:f><:f,&Times New Roman,>Get<:f><:f,&Times New Roman,>DocInfo<:f><:f,&Times New Roman,>$(DDUser4)<:f>
  257.  
  258. Descrip=GetDocInfoKeywords$()
  259.  
  260. <:f,&Times New Roman,><:f><:f,&Times New Roman,><:f><:f,&Times New Roman,>chid=DDEInitiate ("DocMan" "DocForm")
  261.  
  262. <:#240,9360><:f,&Times New Roman,>if (0 = chid)
  263.  
  264. <:#240,9360><:f,&Times New Roman,>exec ("docman.exe", "")
  265.  
  266. <:#288,9360><:f,&Times New Roman,>time1=now() + 3<:f>
  267.  
  268. <:#240,9360><:f,&Times New Roman,>r=now()
  269.  
  270. <:#240,9360><:f,&Times New Roman,>while r << time1
  271.  
  272. <:#240,9360><:f,&Times New Roman,>r = now()
  273.  
  274. <:#240,9360><:f,&Times New Roman,>wend
  275.  
  276. <:#240,9360><:f,&Times New Roman,>chid=DDEInitiate ("DocMan" "DocForm")
  277.  
  278. <:#240,9360><:f,&Times New Roman,>if (0 = chid)
  279.  
  280. <:#240,9360><:f,&Times New Roman,>message ("Can't establish link to DocMan!")
  281.  
  282. <:#240,9360><:f,&Times New Roman,>Exit Function
  283.  
  284. <:#240,9360><:f,&Times New Roman,>EndIF
  285.  
  286. <:#240,9360><:f,&Times New Roman,>EndIf
  287.  
  288. <:#288,9360><:f,&Times New Roman,>DDEExecute(chid, <:f><:f,&Times New Roman,>"titl={title}")<:f>
  289.  
  290. <:#240,9360><:f,&Times New Roman,>DDEExecute(chid, "appl={appname}")
  291.  
  292. <:#288,9360><:f,&Times New Roman,>DDEExecute(chid, <:f><:f,&Times New Roman,>"file={fname}")<:f>
  293.  
  294. <:#240,9360><:f,&Times New Roman,>DDEExecute(chid, "desc={descrip}")
  295.  
  296. <:#240,9360><:f,&Times New Roman,>DDEExecute(chid, "key1={key1}")
  297.  
  298. <:#288,9360><:f,&Times New Roman,>DDEExecute(chid, <:f><:f,&Times New Roman,>"key2={key2}")<:f>
  299.  
  300. <:#240,9360><:f,&Times New Roman,>DDEExecute(chid, "key3={key3}")
  301.  
  302. <:#240,9360><:f,&Times New Roman,>DDEExecute(chid, "key4={key4}")
  303.  
  304. <:#240,9360><:f,&Times New Roman,>DDEExecute(chid, "show")
  305.  
  306. <:#240,9360><:f,&Times New Roman,>DDETerminate (chid)
  307.  
  308. <:#288,9360><:f,&Times New Roman,>App<:f>Restore<:f,&Times New Roman,>("Docman")
  309.  
  310. <:#288,9360><:f,&Times New Roman,>end function<:f>
  311.  
  312. >
  313.  
  314. [Embedded]
  315. 00004933
  316. >
  317. [macsum] 2
  318. savemac 0 0 3 0
  319. SaveWithNewName 145 0 14 8
  320. [macse]
  321. 14 savemac
  322. 0 279 1
  323. 13
  324. 8 1
  325. 0 15 "{1}" 2 8
  326. 13
  327. 7 "Untitled"
  328. 18 0
  329. 11 00000116
  330. 16 SaveWithNewName
  331. 10 00000133
  332. 24 103
  333. 13
  334. 8 2
  335. 6 0
  336. 15
  337. 9
  338. 14 SaveWithNewName
  339. 24 104
  340. 13
  341. 8 1
  342. 6 1
  343. 5 1
  344. 18 5
  345. 11 00000078
  346. 6 0
  347. 15
  348. 9
  349. 0 279 2
  350. 13
  351. 8 2
  352. 7 "amipro"
  353. 8 3
  354. 0 279 1
  355. 13
  356. 8 4
  357. 0 16 "{2}" "\" "{4}"
  358. 13
  359. 8 4
  360. 0 17 "{4}"
  361. 13
  362. 8 4
  363. 0 279 7
  364. 13
  365. 8 5
  366. 0 279 8
  367. 13
  368. 8 6
  369. 0 279 9
  370. 13
  371. 8 7
  372. 0 279 10
  373. 13
  374. 8 8
  375. 0 279 11
  376. 13
  377. 8 9
  378. 0 301
  379. 13
  380. 8 10
  381. 0 8 "DocMan" "DocForm"
  382. 13
  383. 8 11
  384. 5 0
  385. 6 11
  386. 18 0
  387. 11 00000598
  388. 0 22 "docman.exe" ""
  389. 0 772
  390. 13
  391. 5 3
  392. 3 0
  393. 8 12
  394. 0 772
  395. 13
  396. 8 13
  397. 6 13
  398. 6 12
  399. 18 5
  400. 11 00000483
  401. 0 772
  402. 13
  403. 8 13
  404. 10 00000422
  405. 0 8 "DocMan" "DocForm"
  406. 13
  407. 8 11
  408. 5 0
  409. 6 11
  410. 18 0
  411. 11 00000598
  412. 0 3 "Can't establish link to DocMan!"
  413. 6 0
  414. 15
  415. 9
  416. 0 11 "{11}" "titl={5}"
  417. 0 11 "{11}" "appl={3}"
  418. 0 11 "{11}" "file={4}"
  419. 0 11 "{11}" "desc={10}"
  420. 0 11 "{11}" "key1={6}"
  421. 0 11 "{11}" "key2={7}"
  422. 0 11 "{11}" "key3={8}"
  423. 0 11 "{11}" "key4={9}"
  424. 0 11 "{11}" "show"
  425. 0 9 "{11}"
  426. 0 1031 "Docman"
  427. 6 0
  428. 15
  429. 9
  430. 00004958
  431.